home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / JUL / MC9507 / calc_f.dfm / calc_f.txt
Text File  |  1995-06-01  |  2KB  |  90 lines
  1. object CalcForm: TCalcForm
  2.   Left = 188
  3.   Top = 109
  4.   Width = 591
  5.   Height = 478
  6.   ActiveControl = Panel1
  7.   Caption = 'Calculated Field'
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'Arial'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   TextHeight = 14
  16.   object Panel1: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 583
  20.     Height = 42
  21.     Align = alTop
  22.     TabOrder = 0
  23.     object Panel2: TPanel
  24.       Left = 389
  25.       Top = 1
  26.       Width = 193
  27.       Height = 40
  28.       Align = alRight
  29.       BevelOuter = bvNone
  30.       Caption = 'Panel2'
  31.       TabOrder = 0
  32.       object DBNavigator: TDBNavigator
  33.         Left = 18
  34.         Top = 2
  35.         Width = 169
  36.         Height = 33
  37.         DataSource = DataSource1
  38.         VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  39.         TabOrder = 0
  40.       end
  41.     end
  42.   end
  43.   object DBGrid1: TDBGrid
  44.     Left = 0
  45.     Top = 42
  46.     Width = 583
  47.     Height = 409
  48.     Align = alClient
  49.     DataSource = DataSource1
  50.     TabOrder = 1
  51.     TitleFont.Color = clBlack
  52.     TitleFont.Height = -11
  53.     TitleFont.Name = 'Arial'
  54.     TitleFont.Style = []
  55.   end
  56.   object DataSource1: TDataSource
  57.     DataSet = Table1
  58.     Left = 61
  59.     Top = 5
  60.   end
  61.   object Table1: TTable
  62.     Active = True
  63.     OnCalcFields = Table1CalcFields
  64.     DatabaseName = 'DBDEMOS'
  65.     TableName = 'COUNTRY.DB'
  66.     Left = 24
  67.     Top = 8
  68.     object Table1Name: TStringField
  69.       FieldName = 'Name'
  70.       Size = 24
  71.     end
  72.     object Table1Capital: TStringField
  73.       FieldName = 'Capital'
  74.       Size = 24
  75.     end
  76.     object Table1Area: TFloatField
  77.       FieldName = 'Area'
  78.       DisplayFormat = '#,#'
  79.     end
  80.     object Table1Population: TFloatField
  81.       FieldName = 'Population'
  82.       DisplayFormat = '#,#'
  83.     end
  84.     object Table1PopulationDensity: TFloatField
  85.       Calculated = True
  86.       FieldName = 'Population Density'
  87.     end
  88.   end
  89. end
  90.